Libris Britannia 4

home *** CD-ROM | disk | FTP | other *** search

/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / 0419.ZIP / 6805MACS.ASM < prev next >

Wrap

Assembly Source File | 1986-02-08 | 3KB | 340 lines

title "6805 Cross assembler" ;6805macs.asm Copyright 1986 Stuart Venters. rdop macro if "#" ? "$2" db $1,"#" ^ $2 else wrop $1,$2,$3 endif endm wrop macro if "" = "$3" wrop2 $1,$2 else if "$3" = "X" wrop3 $1,$2 else wrop3 $1,$2 error "A" endif endif endm wrop2 macro if "X" = "$2" db $1+0x50 else if ($2) < 256 db $1+0x10,$2 else db $1+0x20 dw $2 endif endif endm wrop3 macro if ($2) < 256 if $2 db $1+0x40,$2 else db $1+0x50 endif else db $1+0x30 dw $2 endif endm lda macro rdop 0xa6,$1,$2 endm ldx macro rdop 0xae,$1,$2 endm sta macro wrop 0xa7,$1,$2 endm stx macro wrop 0xaf,$1,$2 endm add macro rdop 0xab,$1,$2 endm adc macro rdop 0xa9,$1,$2 endm sub macro rdop 0xa0,$1,$2 endm sbc macro rdop 0xa2,$1,$2 endm and macro rdop 0xa4,$1,$2 endm ora macro rdop 0xaa,$1,$2 endm eor macro rdop 0xa8,$1,$2 endm cmp macro rdop 0xa1,$1,$2 endm cpx macro rdop 0xa3,$1,$2 endm bit macro rdop 0xa5,$1,$2 endm jmp macro wrop 0xac,$1,$2 endm jsr macro wrop 0xad,$1,$2 endm rmwop macro if "" = "$3" rmwop2 $1,$2 else rmwop3 $1,$2,$3 endif endm rmwop2 macro if "A" = "$2" db $1+0x10 else if "X" = "$2" db $1+0x20 else db $1,$2 endif endif endm rmwop3 macro if "X" = "$3" if $2 = 0 db $1+0x40 else db $1+0x30,$2 endif else error "A" db $1+0x30,0 endif endm inc macro rmwop 0x3c,$1,$2 endm dec macro rmwop 0x3a,$1,$2 endm clr macro rmwop 0x3f,$1,$2 endm com macro rmwop 0x33,$1,$2 endm neg macro rmwop 0x30,$1,$2 endm rol macro rmwop 0x39,$1,$2 endm ror macro rmwop 0x36,$1,$2 endm lsl macro rmwop 0x38,$1,$2 endm lsr macro rmwop 0x34,$1,$2 endm asr macro rmwop 0x37,$1,$2 endm asl macro rmwop 0x38,$1,$2 endm tst macro rmwop 0x3d,$1,$2 endm dbr macro iferr "V",(($2)>127) & (($2)<256) db $1,$2 endm bra macro dbr 0x20,($1)-$-2 endm brn macro dbr 0x21,($1)-$-2 endm bhi macro dbr 0x22,($1)-$-2 endm bls macro dbr 0x23,($1)-$-2 endm bcc macro dbr 0x24,($1)-$-2 endm bhs macro dbr 0x24,($1)-$-2 endm bcs macro dbr 0x25,($1)-$-2 endm blo macro dbr 0x25,($1)-$-2 endm bne macro dbr 0x26,($1)-$-2 endm beq macro dbr 0x27,($1)-$-2 endm bhcc macro dbr 0x28,($1)-$-2 endm bhcs macro dbr 0x29,($1)-$-2 endm bpl macro dbr 0x2a,($1)-$-2 endm bmi macro dbr 0x2b,($1)-$-2 endm bmc macro dbr 0x2c,($1)-$-2 endm bms macro dbr 0x2d,($1)-$-2 endm bil macro dbr 0x2e,($1)-$-2 endm bih macro dbr 0x2f,($1)-$-2 endm bsr macro dbr 0xad,($1)-$-2 endm brset macro db ($1)*2 dbr $2,($3)-$-3 endm brclr macro db 1+(($1)*2) dbr $2,($3)-$-3 endm bset macro db 0x10+($1)+($1),$2 endm bclr macro db 0x11+($1)+($1),$2 endm tax macro db 0x97 endm txa macro db 0x9f endm sec macro db 0x99 endm clc macro db 0x98 endm sei macro db 0x9B endm cli macro db 0x9A endm swi macro db 0x83 endm rts macro db 0x81 endm rti macro db 0x80 endm rsp macro db 0x9c endm nop macro db 0x9D endm